Program Premier-liga-2;
Var B: array[1..16] of integer;
	Team: array[1..16] of string	
	I,K,X: integer;
	St:string;
Begin
{      }
       Writeln(      )
	For I:=1 to 16 do
	Begin
		Write(I, : ); Readln(Team[I]);
       Write(: ); Readln(B[I])
	End;
{}
For K:=1 to 15 do
    For I:=1 to 16K do
       If (B[I] > B[I+1]) then
       Begin
       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;
       St:=Team[I]; Team[I]:=Team[I+1]; Team[I+1]:=St
		End;
{  }
For I:=1 to 16 do
begin
	{    }
	For K:= 1 to 18-length(Team[I]) do Team[I]:=Team[I]+;
       {: , , }
       Writeln(I:2,,Team[I]:18, B[I]:2)
	end
End.

